Exploring the multimodality of rodent ISDs using Gaussian mixture models (after Thibault et al 2011).
gmms <- lapply(isds, fit_gmm)
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
fitting ...
|
| | 0%
|
|==== | 6%
|
|======== | 12%
|
|============= | 19%
|
|================= | 25%
|
|===================== | 31%
|
|========================== | 38%
|
|============================== | 44%
|
|================================== | 50%
|
|====================================== | 56%
|
|========================================== | 62%
|
|=============================================== | 69%
|
|=================================================== | 75%
|
|======================================================= | 81%
|
|============================================================ | 88%
|
|================================================================ | 94%
|
|====================================================================| 100%
names(gmms) <- names(communities)
[1] "andrews"
[1] "niwot"
[1] "portal"
[1] "sev-5pgrass"
[1] "sev-5plarrea"
[1] "sev-goatdraw"
[1] "sev-rsgrass"
[1] "sev-rslarrea"
[1] "sev-two22"
nmodes <- vapply(gmms, FUN = get_nmodes, FUN.VALUE = 3)
nmodes
andrews niwot portal sev-5pgrass sev-5plarrea sev-goatdraw
3 4 9 4 4 3
sev-rsgrass sev-rslarrea sev-two22
4 7 4